Public Shared Sub Screenshot(ByVal Form As Form, ByVal PictureBox As PictureBox, Optional ByVal Shown As Boolean = False)
        Select Case Shown
            Case True
                Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
                Dim Grab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
                Dim Screen As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(Grab)
                Screen.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)
                PictureBox.Image = Grab
            Case False
                Dim OrigOpacity As Integer = Form.Opacity
                Form.Opacity = 0
                Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
                Dim Grab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
                Dim Screen As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(Grab)
                Screen.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)
                PictureBox.Image = Grab
                Form.Opacity = OrigOpacity
        End Select
    End Sub